;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CL-USER; Base: 10 -*-
;;; Regex test case perl-504.retest from Perl.
;;;
;;; This file is automatically generated from Perl's test data with
;;; Perl 5.008004 at 2004-05-24 03:18:05 UTC.
;;;
;;; See: http://www.perl.com/ for Perl.
;;;
;

;;;; perl-504.retest/1: abc
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/1"
  "abc"
  "abc"
  '(:single-line nil)
  (list "abc") )

;;;; perl-504.retest/2: abc
;;;
;;;    Not mached. (n)
;
(test-case
  "perl-504/2"
  "abc"
  "xbc"
  '(:single-line nil)
  nil )

;;;; perl-504.retest/3: abc
;;;
;;;    Not mached. (n)
;
(test-case
  "perl-504/3"
  "abc"
  "axc"
  '(:single-line nil)
  nil )

;;;; perl-504.retest/4: abc
;;;
;;;    Not mached. (n)
;
(test-case
  "perl-504/4"
  "abc"
  "abx"
  '(:single-line nil)
  nil )

;;;; perl-504.retest/5: abc
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/5"
  "abc"
  "xabcy"
  '(:single-line nil)
  (list "abc") )

;;;; perl-504.retest/6: abc
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/6"
  "abc"
  "ababc"
  '(:single-line nil)
  (list "abc") )

;;;; perl-504.retest/7: ab*c
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/7"
  "ab*c"
  "abc"
  '(:single-line nil)
  (list "abc") )

;;;; perl-504.retest/8: ab*bc
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/8"
  "ab*bc"
  "abc"
  '(:single-line nil)
  (list "abc") )

;;;; perl-504.retest/9: ab*bc
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/9"
  "ab*bc"
  "abbc"
  '(:single-line nil)
  (list "abbc") )

;;;; perl-504.retest/10: ab*bc
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/10"
  "ab*bc"
  "abbbbc"
  '(:single-line nil)
  (list "abbbbc") )

;;;; perl-504.retest/11: ab{0,}bc
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/11"
  "ab{0,}bc"
  "abbbbc"
  '(:single-line nil)
  (list "abbbbc") )

;;;; perl-504.retest/12: ab+bc
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/12"
  "ab+bc"
  "abbc"
  '(:single-line nil)
  (list "abbc") )

;;;; perl-504.retest/13: ab+bc
;;;
;;;    Not mached. (n)
;
(test-case
  "perl-504/13"
  "ab+bc"
  "abc"
  '(:single-line nil)
  nil )

;;;; perl-504.retest/14: ab+bc
;;;
;;;    Not mached. (n)
;
(test-case
  "perl-504/14"
  "ab+bc"
  "abq"
  '(:single-line nil)
  nil )

;;;; perl-504.retest/15: ab{1,}bc
;;;
;;;    Not mached. (n)
;
(test-case
  "perl-504/15"
  "ab{1,}bc"
  "abq"
  '(:single-line nil)
  nil )

;;;; perl-504.retest/16: ab+bc
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/16"
  "ab+bc"
  "abbbbc"
  '(:single-line nil)
  (list "abbbbc") )

;;;; perl-504.retest/17: ab{1,}bc
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/17"
  "ab{1,}bc"
  "abbbbc"
  '(:single-line nil)
  (list "abbbbc") )

;;;; perl-504.retest/18: ab{1,3}bc
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/18"
  "ab{1,3}bc"
  "abbbbc"
  '(:single-line nil)
  (list "abbbbc") )

;;;; perl-504.retest/19: ab{3,4}bc
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/19"
  "ab{3,4}bc"
  "abbbbc"
  '(:single-line nil)
  (list "abbbbc") )

;;;; perl-504.retest/20: ab{4,5}bc
;;;
;;;    Not mached. (n)
;
(test-case
  "perl-504/20"
  "ab{4,5}bc"
  "abbbbc"
  '(:single-line nil)
  nil )

;;;; perl-504.retest/21: ab?bc
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/21"
  "ab?bc"
  "abbc"
  '(:single-line nil)
  (list "abbc") )

;;;; perl-504.retest/22: ab?bc
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/22"
  "ab?bc"
  "abc"
  '(:single-line nil)
  (list "abc") )

;;;; perl-504.retest/23: ab{0,1}bc
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/23"
  "ab{0,1}bc"
  "abc"
  '(:single-line nil)
  (list "abc") )

;;;; perl-504.retest/24: ab?bc
;;;
;;;    Not mached. (n)
;
(test-case
  "perl-504/24"
  "ab?bc"
  "abbbbc"
  '(:single-line nil)
  nil )

;;;; perl-504.retest/25: ab?c
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/25"
  "ab?c"
  "abc"
  '(:single-line nil)
  (list "abc") )

;;;; perl-504.retest/26: ab{0,1}c
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/26"
  "ab{0,1}c"
  "abc"
  '(:single-line nil)
  (list "abc") )

;;;; perl-504.retest/27: ^abc$
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/27"
  "^abc$"
  "abc"
  '(:single-line nil)
  (list "abc") )

;;;; perl-504.retest/28: ^abc$
;;;
;;;    Not mached. (n)
;
(test-case
  "perl-504/28"
  "^abc$"
  "abcc"
  '(:single-line nil)
  nil )

;;;; perl-504.retest/29: ^abc
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/29"
  "^abc"
  "abcc"
  '(:single-line nil)
  (list "abc") )

;;;; perl-504.retest/30: ^abc$
;;;
;;;    Not mached. (n)
;
(test-case
  "perl-504/30"
  "^abc$"
  "aabc"
  '(:single-line nil)
  nil )

;;;; perl-504.retest/31: abc$
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/31"
  "abc$"
  "aabc"
  '(:single-line nil)
  (list "abc") )

;;;; perl-504.retest/32: ^
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/32"
  "^"
  "abc"
  '(:single-line nil)
  (list "") )

;;;; perl-504.retest/33: $
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/33"
  "$"
  "abc"
  '(:single-line nil)
  (list "") )

;;;; perl-504.retest/34: a.c
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/34"
  "a.c"
  "abc"
  '(:single-line nil)
  (list "abc") )

;;;; perl-504.retest/35: a.c
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/35"
  "a.c"
  "axc"
  '(:single-line nil)
  (list "axc") )

;;;; perl-504.retest/36: a.*c
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/36"
  "a.*c"
  "axyzc"
  '(:single-line nil)
  (list "axyzc") )

;;;; perl-504.retest/37: a.*c
;;;
;;;    Not mached. (n)
;
(test-case
  "perl-504/37"
  "a.*c"
  "axyzd"
  '(:single-line nil)
  nil )

;;;; perl-504.retest/38: a[bc]d
;;;
;;;    Not mached. (n)
;
(test-case
  "perl-504/38"
  "a[bc]d"
  "abc"
  '(:single-line nil)
  nil )

;;;; perl-504.retest/39: a[bc]d
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/39"
  "a[bc]d"
  "abd"
  '(:single-line nil)
  (list "abd") )

;;;; perl-504.retest/40: a[b-d]e
;;;
;;;    Not mached. (n)
;
(test-case
  "perl-504/40"
  "a[b-d]e"
  "abd"
  '(:single-line nil)
  nil )

;;;; perl-504.retest/41: a[b-d]e
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/41"
  "a[b-d]e"
  "ace"
  '(:single-line nil)
  (list "ace") )

;;;; perl-504.retest/42: a[b-d]
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/42"
  "a[b-d]"
  "aac"
  '(:single-line nil)
  (list "ac") )

;;;; perl-504.retest/43: a[-b]
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/43"
  "a[-b]"
  "a-"
  '(:single-line nil)
  (list "a-") )

;;;; perl-504.retest/44: a[b-]
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/44"
  "a[b-]"
  "a-"
  '(:single-line nil)
  (list "a-") )

;;;; perl-504.retest/45: a[b-a]
;;;
;;;    Syntax error. (c)
;
(test-case
  "perl-504/45"
  "a[b-a]"
  "-"
  '(:single-line nil)
  :compile   ; Invalid [] range "b-a"
 )

;;;; perl-504.retest/46: a[]b
;;;
;;;    Syntax error. (c)
;
(test-case
  "perl-504/46"
  "a[]b"
  "-"
  '(:single-line nil)
  :compile   ; Unmatched [
 )

;;;; perl-504.retest/47: a[
;;;
;;;    Syntax error. (c)
;
(test-case
  "perl-504/47"
  "a["
  "-"
  '(:single-line nil)
  :compile   ; Unmatched [
 )

;;;; perl-504.retest/48: a]
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/48"
  "a]"
  "a]"
  '(:single-line nil)
  (list "a]") )

;;;; perl-504.retest/49: a[]]b
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/49"
  "a[]]b"
  "a]b"
  '(:single-line nil)
  (list "a]b") )

;;;; perl-504.retest/50: a[^bc]d
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/50"
  "a[^bc]d"
  "aed"
  '(:single-line nil)
  (list "aed") )

;;;; perl-504.retest/51: a[^bc]d
;;;
;;;    Not mached. (n)
;
(test-case
  "perl-504/51"
  "a[^bc]d"
  "abd"
  '(:single-line nil)
  nil )

;;;; perl-504.retest/52: a[^-b]c
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/52"
  "a[^-b]c"
  "adc"
  '(:single-line nil)
  (list "adc") )

;;;; perl-504.retest/53: a[^-b]c
;;;
;;;    Not mached. (n)
;
(test-case
  "perl-504/53"
  "a[^-b]c"
  "a-c"
  '(:single-line nil)
  nil )

;;;; perl-504.retest/54: a[^]b]c
;;;
;;;    Not mached. (n)
;
(test-case
  "perl-504/54"
  "a[^]b]c"
  "a]c"
  '(:single-line nil)
  nil )

;;;; perl-504.retest/55: a[^]b]c
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/55"
  "a[^]b]c"
  "adc"
  '(:single-line nil)
  (list "adc") )

;;;; perl-504.retest/56: ab|cd
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/56"
  "ab|cd"
  "abc"
  '(:single-line nil)
  (list "ab") )

;;;; perl-504.retest/57: ab|cd
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/57"
  "ab|cd"
  "abcd"
  '(:single-line nil)
  (list "ab") )

;;;; perl-504.retest/58: ()ef
;;;
;;;    Matched with 1 captures. (y)
;
(test-case
  "perl-504/58"
  "()ef"
  "def"
  '(:single-line nil)
  (list
    "ef"
    "" ) )

;;;; perl-504.retest/59: *a
;;;
;;;    Syntax error. (c)
;
(test-case
  "perl-504/59"
  "*a"
  "-"
  '(:single-line nil)
  :compile   ; Quantifier follows nothing
 )

;;;; perl-504.retest/60: (*)b
;;;
;;;    Syntax error. (c)
;
(test-case
  "perl-504/60"
  "(*)b"
  "-"
  '(:single-line nil)
  :compile   ; Quantifier follows nothing
 )

;;;; perl-504.retest/61: $b
;;;
;;;    Not mached. (n)
;
(test-case
  "perl-504/61"
  "$b"
  "b"
  '(:single-line nil)
  nil )

;;;; perl-504.retest/62: a\
;;;
;;;    Syntax error. (c)
;
(test-case
  "perl-504/62"
  "a\\"
  "-"
  '(:single-line nil)
  :compile   ; Search pattern not terminated
 )

;;;; perl-504.retest/63: a\(b
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/63"
  "a\\(b"
  "a(b"
  '(:single-line nil)
  (list "a(b") )

;;;; perl-504.retest/64: a\(*b
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/64"
  "a\\(*b"
  "ab"
  '(:single-line nil)
  (list "ab") )

;;;; perl-504.retest/65: a\(*b
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/65"
  "a\\(*b"
  "a((b"
  '(:single-line nil)
  (list "a((b") )

;;;; perl-504.retest/66: a\\b
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/66"
  "a\\\\b"
  "a\\b"
  '(:single-line nil)
  (list "a\\b") )

;;;; perl-504.retest/67: abc)
;;;
;;;    Syntax error. (c)
;
(test-case
  "perl-504/67"
  "abc)"
  "-"
  '(:single-line nil)
  :compile   ; Unmatched )
 )

;;;; perl-504.retest/68: (abc
;;;
;;;    Syntax error. (c)
;
(test-case
  "perl-504/68"
  "(abc"
  "-"
  '(:single-line nil)
  :compile   ; Unmatched (
 )

;;;; perl-504.retest/69: ((a))
;;;
;;;    Matched with 2 captures. (y)
;
(test-case
  "perl-504/69"
  "((a))"
  "abc"
  '(:single-line nil)
  (list
    "a"
    "a"
    "a" ) )

;;;; perl-504.retest/70: (a)b(c)
;;;
;;;    Matched with 2 captures. (y)
;
(test-case
  "perl-504/70"
  "(a)b(c)"
  "abc"
  '(:single-line nil)
  (list
    "abc"
    "a"
    "c" ) )

;;;; perl-504.retest/71: a+b+c
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/71"
  "a+b+c"
  "aabbabc"
  '(:single-line nil)
  (list "abc") )

;;;; perl-504.retest/72: a{1,}b{1,}c
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/72"
  "a{1,}b{1,}c"
  "aabbabc"
  '(:single-line nil)
  (list "abc") )

;;;; perl-504.retest/73: a**
;;;
;;;    Syntax error. (c)
;
(test-case
  "perl-504/73"
  "a**"
  "-"
  '(:single-line nil)
  :compile   ; Nested quantifiers
 )

;;;; perl-504.retest/74: a.+?c
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/74"
  "a.+?c"
  "abcabc"
  '(:single-line nil)
  (list "abc") )

;;;; perl-504.retest/75: (a+|b)*
;;;
;;;    Matched with 1 captures. (y)
;
(test-case
  "perl-504/75"
  "(a+|b)*"
  "ab"
  '(:single-line nil)
  (list
    "ab"
    "b" ) )

;;;; perl-504.retest/76: (a+|b){0,}
;;;
;;;    Matched with 1 captures. (y)
;
(test-case
  "perl-504/76"
  "(a+|b){0,}"
  "ab"
  '(:single-line nil)
  (list
    "ab"
    "b" ) )

;;;; perl-504.retest/77: (a+|b)+
;;;
;;;    Matched with 1 captures. (y)
;
(test-case
  "perl-504/77"
  "(a+|b)+"
  "ab"
  '(:single-line nil)
  (list
    "ab"
    "b" ) )

;;;; perl-504.retest/78: (a+|b){1,}
;;;
;;;    Matched with 1 captures. (y)
;
(test-case
  "perl-504/78"
  "(a+|b){1,}"
  "ab"
  '(:single-line nil)
  (list
    "ab"
    "b" ) )

;;;; perl-504.retest/79: (a+|b)?
;;;
;;;    Matched with 1 captures. (y)
;
(test-case
  "perl-504/79"
  "(a+|b)?"
  "ab"
  '(:single-line nil)
  (list
    "a"
    "a" ) )

;;;; perl-504.retest/80: (a+|b){0,1}
;;;
;;;    Matched with 1 captures. (y)
;
(test-case
  "perl-504/80"
  "(a+|b){0,1}"
  "ab"
  '(:single-line nil)
  (list
    "a"
    "a" ) )

;;;; perl-504.retest/81: )(
;;;
;;;    Syntax error. (c)
;
(test-case
  "perl-504/81"
  ")("
  "-"
  '(:single-line nil)
  :compile   ; Unmatched )
 )

;;;; perl-504.retest/82: [^ab]*
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/82"
  "[^ab]*"
  "cde"
  '(:single-line nil)
  (list "cde") )

;;;; perl-504.retest/83: abc
;;;
;;;    Not mached. (n)
;
(test-case
  "perl-504/83"
  "abc"
  ""
  '(:single-line nil)
  nil )

;;;; perl-504.retest/84: a*
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/84"
  "a*"
  ""
  '(:single-line nil)
  (list "") )

;;;; perl-504.retest/85: ([abc])*d
;;;
;;;    Matched with 1 captures. (y)
;
(test-case
  "perl-504/85"
  "([abc])*d"
  "abbbcd"
  '(:single-line nil)
  (list
    "abbbcd"
    "c" ) )

;;;; perl-504.retest/86: ([abc])*bcd
;;;
;;;    Matched with 1 captures. (y)
;
(test-case
  "perl-504/86"
  "([abc])*bcd"
  "abcd"
  '(:single-line nil)
  (list
    "abcd"
    "a" ) )

;;;; perl-504.retest/87: a|b|c|d|e
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/87"
  "a|b|c|d|e"
  "e"
  '(:single-line nil)
  (list "e") )

;;;; perl-504.retest/88: (a|b|c|d|e)f
;;;
;;;    Matched with 1 captures. (y)
;
(test-case
  "perl-504/88"
  "(a|b|c|d|e)f"
  "ef"
  '(:single-line nil)
  (list
    "ef"
    "e" ) )

;;;; perl-504.retest/89: abcd*efg
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/89"
  "abcd*efg"
  "abcdefg"
  '(:single-line nil)
  (list "abcdefg") )

;;;; perl-504.retest/90: ab*
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/90"
  "ab*"
  "xabyabbbz"
  '(:single-line nil)
  (list "ab") )

;;;; perl-504.retest/91: ab*
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/91"
  "ab*"
  "xayabbbz"
  '(:single-line nil)
  (list "a") )

;;;; perl-504.retest/92: (ab|cd)e
;;;
;;;    Matched with 1 captures. (y)
;
(test-case
  "perl-504/92"
  "(ab|cd)e"
  "abcde"
  '(:single-line nil)
  (list
    "cde"
    "cd" ) )

;;;; perl-504.retest/93: [abhgefdc]ij
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/93"
  "[abhgefdc]ij"
  "hij"
  '(:single-line nil)
  (list "hij") )

;;;; perl-504.retest/94: ^(ab|cd)e
;;;
;;;    Not mached. (n)
;
(test-case
  "perl-504/94"
  "^(ab|cd)e"
  "abcde"
  '(:single-line nil)
  nil )

;;;; perl-504.retest/95: (abc|)ef
;;;
;;;    Matched with 1 captures. (y)
;
(test-case
  "perl-504/95"
  "(abc|)ef"
  "abcdef"
  '(:single-line nil)
  (list
    "ef"
    "" ) )

;;;; perl-504.retest/96: (a|b)c*d
;;;
;;;    Matched with 1 captures. (y)
;
(test-case
  "perl-504/96"
  "(a|b)c*d"
  "abcd"
  '(:single-line nil)
  (list
    "bcd"
    "b" ) )

;;;; perl-504.retest/97: (ab|ab*)bc
;;;
;;;    Matched with 1 captures. (y)
;
(test-case
  "perl-504/97"
  "(ab|ab*)bc"
  "abc"
  '(:single-line nil)
  (list
    "abc"
    "a" ) )

;;;; perl-504.retest/98: a([bc]*)c*
;;;
;;;    Matched with 1 captures. (y)
;
(test-case
  "perl-504/98"
  "a([bc]*)c*"
  "abc"
  '(:single-line nil)
  (list
    "abc"
    "bc" ) )

;;;; perl-504.retest/99: a([bc]*)(c*d)
;;;
;;;    Matched with 2 captures. (y)
;
(test-case
  "perl-504/99"
  "a([bc]*)(c*d)"
  "abcd"
  '(:single-line nil)
  (list
    "abcd"
    "bc"
    "d" ) )

;;;; perl-504.retest/100: a([bc]+)(c*d)
;;;
;;;    Matched with 2 captures. (y)
;
(test-case
  "perl-504/100"
  "a([bc]+)(c*d)"
  "abcd"
  '(:single-line nil)
  (list
    "abcd"
    "bc"
    "d" ) )

;;;; perl-504.retest/101: a([bc]*)(c+d)
;;;
;;;    Matched with 2 captures. (y)
;
(test-case
  "perl-504/101"
  "a([bc]*)(c+d)"
  "abcd"
  '(:single-line nil)
  (list
    "abcd"
    "b"
    "cd" ) )

;;;; perl-504.retest/102: a[bcd]*dcdcde
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/102"
  "a[bcd]*dcdcde"
  "adcdcde"
  '(:single-line nil)
  (list "adcdcde") )

;;;; perl-504.retest/103: a[bcd]+dcdcde
;;;
;;;    Not mached. (n)
;
(test-case
  "perl-504/103"
  "a[bcd]+dcdcde"
  "adcdcde"
  '(:single-line nil)
  nil )

;;;; perl-504.retest/104: (ab|a)b*c
;;;
;;;    Matched with 1 captures. (y)
;
(test-case
  "perl-504/104"
  "(ab|a)b*c"
  "abc"
  '(:single-line nil)
  (list
    "abc"
    "ab" ) )

;;;; perl-504.retest/105: ((a)(b)c)(d)
;;;
;;;    Matched with 4 captures. (y)
;
(test-case
  "perl-504/105"
  "((a)(b)c)(d)"
  "abcd"
  '(:single-line nil)
  (list
    "abcd"
    "abc"
    "a"
    "b"
    "d" ) )

;;;; perl-504.retest/106: [a-zA-Z_][a-zA-Z0-9_]*
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/106"
  "[a-zA-Z_][a-zA-Z0-9_]*"
  "alpha"
  '(:single-line nil)
  (list "alpha") )

;;;; perl-504.retest/107: ^a(bc+|b[eh])g|.h$
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/107"
  "^a(bc+|b[eh])g|.h$"
  "abh"
  '(:single-line nil)
  (list "bh") )

;;;; perl-504.retest/108: (bc+d$|ef*g.|h?i(j|k))
;;;
;;;    Matched with 1 captures. (y)
;
(test-case
  "perl-504/108"
  "(bc+d$|ef*g.|h?i(j|k))"
  "effgz"
  '(:single-line nil)
  (list
    "effgz"
    "effgz" ) )

;;;; perl-504.retest/109: (bc+d$|ef*g.|h?i(j|k))
;;;
;;;    Matched with 2 captures. (y)
;
(test-case
  "perl-504/109"
  "(bc+d$|ef*g.|h?i(j|k))"
  "ij"
  '(:single-line nil)
  (list
    "ij"
    "ij"
    "j" ) )

;;;; perl-504.retest/110: (bc+d$|ef*g.|h?i(j|k))
;;;
;;;    Not mached. (n)
;
(test-case
  "perl-504/110"
  "(bc+d$|ef*g.|h?i(j|k))"
  "effg"
  '(:single-line nil)
  nil )

;;;; perl-504.retest/111: (bc+d$|ef*g.|h?i(j|k))
;;;
;;;    Not mached. (n)
;
(test-case
  "perl-504/111"
  "(bc+d$|ef*g.|h?i(j|k))"
  "bcdd"
  '(:single-line nil)
  nil )

;;;; perl-504.retest/112: (bc+d$|ef*g.|h?i(j|k))
;;;
;;;    Matched with 1 captures. (y)
;
(test-case
  "perl-504/112"
  "(bc+d$|ef*g.|h?i(j|k))"
  "reffgz"
  '(:single-line nil)
  (list
    "effgz"
    "effgz" ) )

;;;; perl-504.retest/113: ((((((((((a))))))))))
;;;
;;;    Matched with 10 captures. (y)
;
(test-case
  "perl-504/113"
  "((((((((((a))))))))))"
  "a"
  '(:single-line nil)
  (list
    "a"
    "a"
    "a"
    "a"
    "a"
    "a"
    "a"
    "a"
    "a"
    "a"
    "a" ) )

;;;; perl-504.retest/114: ((((((((((a))))))))))\10
;;;
;;;    Matched with 10 captures. (y)
;
(test-case
  "perl-504/114"
  "((((((((((a))))))))))\\10"
  "aa"
  '(:single-line nil)
  (list
    "aa"
    "a"
    "a"
    "a"
    "a"
    "a"
    "a"
    "a"
    "a"
    "a"
    "a" ) )

;;;; perl-504.retest/115: ((((((((((a))))))))))\41
;;;
;;;    Not mached. (n)
;
(test-case
  "perl-504/115"
  "((((((((((a))))))))))\\41"
  "aa"
  '(:single-line nil)
  nil )

;;;; perl-504.retest/116: ((((((((((a))))))))))\41
;;;
;;;    Matched with 10 captures. (y)
;
(test-case
  "perl-504/116"
  "((((((((((a))))))))))\\41"
  "a!"
  '(:single-line nil)
  (list
    "a!"
    "a"
    "a"
    "a"
    "a"
    "a"
    "a"
    "a"
    "a"
    "a"
    "a" ) )

;;;; perl-504.retest/117: (((((((((a)))))))))
;;;
;;;    Matched with 9 captures. (y)
;
(test-case
  "perl-504/117"
  "(((((((((a)))))))))"
  "a"
  '(:single-line nil)
  (list
    "a"
    "a"
    "a"
    "a"
    "a"
    "a"
    "a"
    "a"
    "a"
    "a" ) )

;;;; perl-504.retest/118: multiple words of text
;;;
;;;    Not mached. (n)
;
(test-case
  "perl-504/118"
  "multiple words of text"
  "uh-uh"
  '(:single-line nil)
  nil )

;;;; perl-504.retest/119: multiple words
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/119"
  "multiple words"
  "multiple words, yeah"
  '(:single-line nil)
  (list "multiple words") )

;;;; perl-504.retest/120: (.*)c(.*)
;;;
;;;    Matched with 2 captures. (y)
;
(test-case
  "perl-504/120"
  "(.*)c(.*)"
  "abcde"
  '(:single-line nil)
  (list
    "abcde"
    "ab"
    "de" ) )

;;;; perl-504.retest/121: \((.*), (.*)\)
;;;
;;;    Matched with 2 captures. (y)
;
(test-case
  "perl-504/121"
  "\\((.*), (.*)\\)"
  "(a, b)"
  '(:single-line nil)
  (list
    "(a, b)"
    "a"
    "b" ) )

;;;; perl-504.retest/122: [k]
;;;
;;;    Not mached. (n)
;
(test-case
  "perl-504/122"
  "[k]"
  "ab"
  '(:single-line nil)
  nil )

;;;; perl-504.retest/123: abcd
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/123"
  "abcd"
  "abcd"
  '(:single-line nil)
  (list "abcd") )

;;;; perl-504.retest/124: a(bc)d
;;;
;;;    Matched with 1 captures. (y)
;
(test-case
  "perl-504/124"
  "a(bc)d"
  "abcd"
  '(:single-line nil)
  (list
    "abcd"
    "bc" ) )

;;;; perl-504.retest/125: a[-]?c
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/125"
  "a[-]?c"
  "ac"
  '(:single-line nil)
  (list "ac") )

;;;; perl-504.retest/126: (abc)\1
;;;
;;;    Matched with 1 captures. (y)
;
(test-case
  "perl-504/126"
  "(abc)\\1"
  "abcabc"
  '(:single-line nil)
  (list
    "abcabc"
    "abc" ) )

;;;; perl-504.retest/127: ([a-c]*)\1
;;;
;;;    Matched with 1 captures. (y)
;
(test-case
  "perl-504/127"
  "([a-c]*)\\1"
  "abcabc"
  '(:single-line nil)
  (list
    "abcabc"
    "abc" ) )

;;;; perl-504.retest/128: a(?!b).
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/128"
  "a(?!b)."
  "abad"
  '(:single-line nil)
  (list "ad") )

;;;; perl-504.retest/129: a(?=d).
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/129"
  "a(?=d)."
  "abad"
  '(:single-line nil)
  (list "ad") )

;;;; perl-504.retest/130: a(?=c|d).
;;;
;;;    Matched. (y)
;
(test-case
  "perl-504/130"
  "a(?=c|d)."
  "abad"
  '(:single-line nil)
  (list "ad") )

;;;; perl-504.retest/131: a(?:b|c|d)(.)
;;;
;;;    Matched with 1 captures. (y)
;
(test-case
  "perl-504/131"
  "a(?:b|c|d)(.)"
  "ace"
  '(:single-line nil)
  (list
    "ace"
    "e" ) )

;;;; perl-504.retest/132: a(?:b|c|d)*(.)
;;;
;;;    Matched with 1 captures. (y)
;
(test-case
  "perl-504/132"
  "a(?:b|c|d)*(.)"
  "ace"
  '(:single-line nil)
  (list
    "ace"
    "e" ) )

;;;; perl-504.retest/133: a(?:b|c|d)+?(.)
;;;
;;;    Matched with 1 captures. (y)
;
(test-case
  "perl-504/133"
  "a(?:b|c|d)+?(.)"
  "ace"
  '(:single-line nil)
  (list
    "ace"
    "e" ) )

;;;; perl-504.retest/134: a(?:b|(c|e){1,2}?|d)+?(.)
;;;
;;;    Matched with 2 captures. (y)
;
(test-case
  "perl-504/134"
  "a(?:b|(c|e){1,2}?|d)+?(.)"
  "ace"
  '(:single-line nil)
  (list
    "ace"
    "c"
    "e" ) )

;;;; perl-504.retest/135: ^(.+)?B
;;;
;;;    Matched with 1 captures. (y)
;
(test-case
  "perl-504/135"
  "^(.+)?B"
  "AB"
  '(:single-line nil)
  (list
    "AB"
    "A" ) )

;;;; perl-504.retest/136: a[b-a]
;;;
;;;    Syntax error. (c)
;
(test-case
  "perl-504/136"
  "a[b-a]"
  "-"
  '(:single-line nil)
  :compile   ; Invalid [] range "b-a"
 )

;;;; perl-504.retest/137: a[]b
;;;
;;;    Syntax error. (c)
;
(test-case
  "perl-504/137"
  "a[]b"
  "-"
  '(:single-line nil)
  :compile   ; Unmatched [
 )

;;;; perl-504.retest/138: a[
;;;
;;;    Syntax error. (c)
;
(test-case
  "perl-504/138"
  "a["
  "-"
  '(:single-line nil)
  :compile   ; Unmatched [
 )

;;;; perl-504.retest/139: *a
;;;
;;;    Syntax error. (c)
;
(test-case
  "perl-504/139"
  "*a"
  "-"
  '(:single-line nil)
  :compile   ; Quantifier follows nothing
 )

;;;; perl-504.retest/140: (*)b
;;;
;;;    Syntax error. (c)
;
(test-case
  "perl-504/140"
  "(*)b"
  "-"
  '(:single-line nil)
  :compile   ; Quantifier follows nothing
 )

;;;; perl-504.retest/141: a\
;;;
;;;    Syntax error. (c)
;
(test-case
  "perl-504/141"
  "a\\"
  "-"
  '(:single-line nil)
  :compile   ; Search pattern not terminated
 )

;;;; perl-504.retest/142: abc)
;;;
;;;    Syntax error. (c)
;
(test-case
  "perl-504/142"
  "abc)"
  "-"
  '(:single-line nil)
  :compile   ; Unmatched )
 )

;;;; perl-504.retest/143: (abc
;;;
;;;    Syntax error. (c)
;
(test-case
  "perl-504/143"
  "(abc"
  "-"
  '(:single-line nil)
  :compile   ; Unmatched (
 )

;;;; perl-504.retest/144: )(
;;;
;;;    Syntax error. (c)
;
(test-case
  "perl-504/144"
  ")("
  "-"
  '(:single-line nil)
  :compile   ; Unmatched )
 )

; EOF
